home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / GAN-AR04.ZIP / AREA.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-05-03  |  8.5 KB  |  581 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  TINTEGER006(300)
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER017
  34.     Integer  INTEGER018
  35.     Integer  INTEGER019
  36.     Integer  INTEGER020
  37.     Integer  INTEGER021
  38.     Integer  INTEGER022
  39.     Integer  INTEGER023
  40.     Integer  INTEGER024
  41.     String   STRING001
  42.     String   STRING002
  43.     String   STRING003
  44.     String   TSTRING004(300)
  45.     String   STRING005
  46.     String   STRING006
  47.     String   STRING007
  48.     String   TSTRING008(300)
  49.     String   STRING009
  50.     String   STRING010
  51.     String   STRING011
  52.     String   STRING012
  53.     String   STRING013
  54.     String   STRING014
  55.     String   STRING015
  56.     String   STRING016
  57.     String   STRING017
  58.     String   STRING018
  59.     String   STRING019
  60.     String   STRING020
  61.     String   STRING021
  62.     String   STRING022
  63.     String   STRING023
  64.     String   STRING024
  65.     String   STRING025
  66.     String   STRING026
  67.     String   STRING027
  68.     String   STRING028
  69.     String   STRING029
  70.     String   STRING030
  71.     String   STRING031
  72.     String   STRING032
  73.     String   STRING033
  74.     String   STRING034
  75.     String   STRING035
  76.     String   STRING036
  77.     String   STRING037
  78.     String   STRING038
  79.     String   STRING039
  80.     Declare  Procedure PROC001()
  81.     Declare  Procedure PROC002(Integer INTEGER015)
  82.     Declare  Procedure PROC003(Integer INTEGER016)
  83.     Declare  Procedure PROC004()
  84.     Declare  Procedure PROC005()
  85.     Declare  Procedure PROC006()
  86.  
  87. ;------------------------------------------------------------------------------
  88.  
  89.     If (1 == 2) Then
  90.     Endif
  91.     STRING002 = 1
  92.     INTEGER008 = 0
  93.     INTEGER005 = 0
  94.     INTEGER009 = 0
  95.     INTEGER010 = 31
  96.     STRING025 = GetToken()
  97.     If (STRING025 <> "") Then
  98.         Dir STRING025
  99.         End
  100.     Endif
  101.     STRING013 = Mid(String(Time()), 4, 2) + Right(String(Time()), 2)
  102.     STRING007 = PPEPath() + PPEName() + ".CNF"
  103.     If (Exist(STRING007)) Then
  104.         STRING015 = Left(ReadLine(STRING007, 1), 4)
  105.         STRING016 = Left(ReadLine(STRING007, 2), 4)
  106.         STRING017 = Left(ReadLine(STRING007, 3), 4)
  107.         STRING018 = Left(ReadLine(STRING007, 4), 4)
  108.         STRING019 = Left(ReadLine(STRING007, 5), 4)
  109.         STRING020 = Left(ReadLine(STRING007, 6), 4)
  110.         STRING021 = Left(ReadLine(STRING007, 7), 4)
  111.         STRING022 = Left(ReadLine(STRING007, 8), 4)
  112.         STRING023 = Left(ReadLine(STRING007, 9), 4)
  113.         STRING024 = Left(ReadLine(STRING007, 10), 4)
  114.         STRING011 = ReadLine(STRING007, 12)
  115.         INTEGER012 = ReadLine(STRING007, 13)
  116.     Else
  117.         STRING015 = "@X0B"
  118.         STRING016 = "@X03"
  119.         STRING017 = "@X08"
  120.         STRING018 = "@X0F"
  121.         STRING019 = "@X0C"
  122.         STRING020 = "@X03"
  123.         STRING021 = "@X0B"
  124.         STRING022 = "@X07"
  125.         STRING023 = "@X09"
  126.         STRING024 = "@X1F"
  127.         STRING011 = "PKZIP.EXE"
  128.         INTEGER012 = 10000
  129.     Endif
  130.     STRING009 = ReadLine(PCBDat(), 31)
  131.     STRING010 = ReadLine(STRING009, INTEGER010 + 33 * CurConf())
  132.     FOpen 1, STRING010, 2, 0
  133.     FSeek 1, 60, 1
  134.     FRead 1, TSTRING008(INTEGER008), 35
  135.     :LABEL001
  136.     If (Ferr(1)) Goto LABEL002
  137.     Inc INTEGER008
  138.     FSeek 1, 61, 1
  139.     FRead 1, TSTRING008(INTEGER008), 35
  140.     Goto LABEL001
  141.     :LABEL002
  142.     TSTRING008(INTEGER008) = "UPLoaD DiReCToRY"
  143.     If (CurSec() >= INTEGER012) Then
  144.         Inc INTEGER008
  145.         TSTRING008(INTEGER008) = "PRiVaTe UPLoaD DiReCToRY"
  146.     Endif
  147.     FClose 1
  148.     STRING005 = PPEPath() + String(CurConf()) + "dir"
  149.     FOpen 1, STRING005, 2, 0
  150.     If (Ferr(1)) Then
  151.         Goto LABEL004
  152.     Else
  153.         :LABEL003
  154.         If (Ferr(1)) Goto LABEL004
  155.         FGet 1, STRING006
  156.         TINTEGER006(INTEGER011) = Left(STRING006, 5)
  157.         TSTRING004(INTEGER011) = Right(STRING006, 12)
  158.         Inc INTEGER011
  159.         Goto LABEL003
  160.     Endif
  161.     :LABEL004
  162.     FClose 1
  163.     INTEGER003 = INTEGER008
  164.     If ((INTEGER003 / 15) * 15 < INTEGER003) Then
  165.         INTEGER004 = INTEGER003 / 15 + 1
  166.     Else
  167.         INTEGER004 = INTEGER003 / 15
  168.     Endif
  169.     If (INTEGER004 > 1) Then
  170.         INTEGER008 = 15
  171.     Endif
  172.     :LABEL005
  173.     Cls
  174.     PROC001()
  175.     PROC002(STRING002)
  176.     While (1) Do
  177.         STRING003 = Inkey()
  178.         If (STRING003 <> "") Then
  179.             If (STRING003 == "DOWN") Then
  180.                 PROC003(STRING002)
  181.                 STRING002 = STRING002 + 1
  182.                 If (INTEGER004 < 2) Then
  183.                     If (STRING002 == INTEGER002 - 5) STRING002 = 1
  184.                     Goto LABEL006
  185.                 Endif
  186.                 If (STRING002 == INTEGER002 - 5) Then
  187.                     If (INTEGER008 < INTEGER003) Then
  188.                         STRING002 = 1
  189.                         INTEGER005 = INTEGER008 + 1
  190.                         INTEGER008 = INTEGER008 + 15
  191.                         If (INTEGER008 > INTEGER003) Then
  192.                             INTEGER008 = INTEGER003
  193.                         Endif
  194.                         Goto LABEL005
  195.                         Goto LABEL006
  196.                     Endif
  197.                     STRING002 = 1
  198.                     INTEGER005 = 0
  199.                     INTEGER008 = 15
  200.                     Goto LABEL005
  201.                 Endif
  202.                 :LABEL006
  203.                 PROC002(STRING002)
  204.                 Continue
  205.             Endif
  206.             If (STRING003 == "UP") Then
  207.                 PROC003(STRING002)
  208.                 STRING002 = STRING002 - 1
  209.                 If (INTEGER004 < 2) Then
  210.                     If (STRING002 == 0) STRING002 = INTEGER002 - 6
  211.                     Goto LABEL007
  212.                 Endif
  213.                 If (STRING002 == 0) Then
  214.                     If (INTEGER008 < INTEGER003) Then
  215.                         STRING002 = 1
  216.                         INTEGER005 = INTEGER008 + 1
  217.                         INTEGER008 = INTEGER008 + 15
  218.                         If (INTEGER008 > INTEGER003) Then
  219.                             INTEGER008 = INTEGER003
  220.                         Endif
  221.                         Goto LABEL005
  222.                         Goto LABEL007
  223.                     Endif
  224.                     STRING002 = 1
  225.                     INTEGER005 = 0
  226.                     INTEGER008 = 15
  227.                     Goto LABEL005
  228.                 Endif
  229.                 :LABEL007
  230.                 PROC002(STRING002)
  231.                 Continue
  232.             Endif
  233.             If (STRING003 == Chr(13)) Then
  234.                 PROC006()
  235.                 If (INTEGER007 == 1) Goto LABEL005
  236.                 Cls
  237.                 If (TSTRING008(STRING002 + INTEGER005 - 1) == "PRiVaTe UPLoaD DiReCToRY") Then
  238.                     Dir "p"
  239.                     Goto LABEL008
  240.                 Endif
  241.                 Dir STRING002 + INTEGER005
  242.                 :LABEL008
  243.                 Goto LABEL005
  244.                 Continue
  245.             Endif
  246.             If (STRING003 == "M") Then
  247.                 PROC006()
  248.                 If (INTEGER007 == 1) Goto LABEL005
  249.                 PROC005()
  250.                 Goto LABEL005
  251.                 Continue
  252.             Endif
  253.             If (STRING003 == "m") Then
  254.                 PROC006()
  255.                 If (INTEGER007 == 1) Goto LABEL005
  256.                 PROC005()
  257.                 Goto LABEL005
  258.                 Continue
  259.             Endif
  260.             If (STRING003 == Chr(27)) Then
  261.                 STRING014 = TempPath() + "AR" + STRING013 + String(PcbNode()) + ".ZIP"
  262.                 If (Exist(STRING014)) Flag STRING014
  263.                 Break
  264.             Endif
  265.         Endif
  266.     EndWhile
  267.     End
  268.  
  269. ;------------------------------------------------------------------------------
  270.  
  271.     Procedure PROC001()
  272.  
  273.     String   STRING026
  274.     String   STRING027
  275.     String   STRING028
  276.     String   STRING029
  277.     String   STRING030
  278.     String   STRING031
  279.     String   STRING032
  280.     String   STRING033
  281.     Integer  INTEGER013
  282.     Integer  INTEGER014
  283.  
  284.     If ((INTEGER008 / 15) * 15 < INTEGER008) Then
  285.         INTEGER014 = INTEGER008 / 15 + 1
  286.     Else
  287.         INTEGER014 = INTEGER008 / 15
  288.     Endif
  289.     STRING027 = STRING015 + "┌" + STRING016 + "─" + STRING017 + "───────@X07 aReaS " + STRING017 + "───────────" + STRING019 + "PaGe @X0E" + String(INTEGER014) + STRING019 + " oF @X0E" + String(INTEGER004) + STRING017 + "─" + STRING016 + "─" + STRING015 + "┐"
  290.     STRING028 = STRING015 + "┌" + STRING016 + "─" + STRING017 + "─" + STRING019 + "# oF FiLeS" + STRING017 + "─" + STRING016 + "─" + STRING015 + "┬" + STRING016 + "─" + STRING017 + "─" + STRING019 + "BYTeS iN aRea" + STRING017 + "─" + STRING016 + "─" + STRING015 + "┐"
  291.     STRING029 = STRING016 + "│                                       │"
  292.     STRING030 = STRING016 + "│              │                 " + STRING016 + "│"
  293.     STRING031 = STRING015 + "└" + STRING016 + "─" + STRING017 + "─────────────────────────────────────" + STRING016 + "─" + STRING015 + "┘"
  294.     STRING032 = STRING015 + "└" + STRING016 + "─" + STRING017 + "────────────" + STRING016 + "─" + STRING015 + "┴" + STRING016 + "─" + STRING017 + "───────────────" + STRING016 + "─" + STRING015 + "┘"
  295.     STRING033 = "  @X0E" + STRING020 + " aND @X0E" + STRING020 + " To SeLeCT aRea/SCReeN - @X0EM" + STRING020 + " MaRKs aReaLiSTiNG FoR D/L - @X0EESC" + STRING020 + " QuiT"
  296.     INTEGER013 = 2
  297.     INTEGER001 = 6
  298.     INTEGER002 = 5
  299.     AnsiPos 4, 2
  300.     Print STRING015, "┌" + STRING016 + "─" + STRING017 + "─────────────────────────────────────────────────────────────────────" + STRING016 + "─", STRING015, "┐"
  301.     AnsiPos 6, 3
  302.     Print "@X07Node:" + STRING018 + "@NODE@    @SYSDATE@   @X09 @X04GaNDaLFs aRea SeLeCToR! @X09  " + STRING018 + "@SYSTIME@  @TIMELEFT@@X07 MiN LeFT"
  303.     AnsiPos 4, 4
  304.     Print STRING015, "└" + STRING016 + "─" + STRING017 + "─────────────────────────────────────────────────────────────────────" + STRING016 + "─", STRING015, "┘"
  305.     AnsiPos 3, INTEGER002
  306.     Print STRING027
  307.     AnsiPos 44, INTEGER002
  308.     Print STRING028
  309.     For INTEGER009 = INTEGER005 To INTEGER008
  310.         INTEGER002 = INTEGER002 + 1
  311.         AnsiPos 3, INTEGER002
  312.         Print STRING029
  313.         AnsiPos 44, INTEGER002
  314.         Print STRING030
  315.         AnsiPos 51, INTEGER002
  316.         Print STRING022, TINTEGER006(INTEGER009)
  317.         AnsiPos 62, INTEGER002
  318.         Print STRING023, TSTRING004(INTEGER009)
  319.     Next
  320.     INTEGER002 = INTEGER002 + 1
  321.     For INTEGER009 = INTEGER005 To INTEGER008
  322.         AnsiPos 4, INTEGER001
  323.         If (Len(INTEGER009 + 1) == 1) Then
  324.             STRING026 = "  " + String(INTEGER009 + 1)
  325.         Endif
  326.         If (Len(INTEGER009 + 1) == 2) Then
  327.             STRING026 = " " + String(INTEGER009 + 1)
  328.         Endif
  329.         Print "@X08", STRING026, STRING021 + " ", TSTRING008(INTEGER009)
  330.         INTEGER001 = INTEGER001 + 1
  331.         Continue
  332.     Next
  333.     AnsiPos 3, INTEGER002
  334.     Print STRING031
  335.     AnsiPos 44, INTEGER002
  336.     Print STRING032
  337.     AnsiPos 3, INTEGER002 + 1
  338.     Print STRING033
  339.  
  340.     EndProc
  341.  
  342.  
  343. ;------------------------------------------------------------------------------
  344.  
  345.     Procedure PROC002(Integer INTEGER015)
  346.  
  347.     AnsiPos 8, 6 + INTEGER015 - 1
  348.     STRING001 = ScrText(8, 6 + INTEGER015 - 1, 35, 1)
  349.     Print STRING024, Upper(ScrText(8, 6 + INTEGER015 - 1, 35, 0))
  350.     PROC004()
  351.  
  352.     EndProc
  353.  
  354.  
  355. ;------------------------------------------------------------------------------
  356.  
  357.     Procedure PROC003(Integer INTEGER016)
  358.  
  359.     AnsiPos 8, 6 + INTEGER016 - 1
  360.     Print "@X0F", STRING001
  361.     PROC004()
  362.  
  363.     EndProc
  364.  
  365.  
  366. ;------------------------------------------------------------------------------
  367.  
  368.     Procedure PROC004()
  369.  
  370.     AnsiPos 1, 22
  371.     Color 0
  372.     Print " "
  373.     Backup 1
  374.  
  375.     EndProc
  376.  
  377.  
  378. ;------------------------------------------------------------------------------
  379.  
  380.     Procedure PROC005()
  381.  
  382.     String   STRING034
  383.     String   STRING035
  384.     String   STRING036
  385.     Integer  INTEGER017
  386.     Integer  INTEGER018
  387.     Integer  INTEGER019
  388.  
  389.     INTEGER018 = 31
  390.     INTEGER019 = 0
  391.     STRING034 = ReadLine(PCBDat(), 31)
  392.     INTEGER017 = ReadLine(PCBDat(), 108)
  393.     STRING035 = ReadLine(STRING034, INTEGER018)
  394.     If (CurConf() > 0) Then
  395.         INTEGER018 = INTEGER018 + 33 * CurConf()
  396.         STRING035 = ReadLine(STRING034, INTEGER018)
  397.     Endif
  398.     If (Exist(STRING035)) Then
  399.         FOpen 3, STRING035, 2, 0
  400.         FSeek 3, 0, 1
  401.         FRead 3, STRING036, 30
  402.         If (Ferr(3)) Goto LABEL009
  403.         If (STRING002 + INTEGER005 == 1) Goto LABEL010
  404.         FSeek 3, 96 * (STRING002 + INTEGER005 - 1), 0
  405.         FRead 3, STRING036, 30
  406.         If (Ferr(3)) Goto LABEL009
  407.         Goto LABEL010
  408.         :LABEL009
  409.         FClose 3
  410.         Goto LABEL011
  411.         :LABEL010
  412.         FClose 3
  413.         Copy STRING036, TempPath() + String(CurConf()) + "file" + String(STRING002 + INTEGER005) + "." + String(PcbNode())
  414.         Shell 1, STRING012, STRING011, TempPath() + "AR" + STRING013 + String(PcbNode()) + " " + TempPath() + String(CurConf()) + "file" + String(STRING002 + INTEGER005) + "." + String(PcbNode())
  415.         Delete TempPath() + String(CurConf()) + "file" + String(STRING002 + INTEGER005) + "." + String(PcbNode())
  416.     Endif
  417.     :LABEL011
  418.  
  419.     EndProc
  420.  
  421.  
  422. ;------------------------------------------------------------------------------
  423.  
  424.     Procedure PROC006()
  425.  
  426.     String   STRING037
  427.     String   STRING038
  428.     String   STRING039
  429.     Integer  INTEGER020
  430.     Integer  INTEGER021
  431.     Integer  INTEGER022
  432.     Integer  INTEGER023
  433.     Integer  INTEGER024
  434.  
  435.     INTEGER007 = 0
  436.     STRING037 = PPEPath() + PPEName() + ".CNF"
  437.     If (Exist(STRING037)) Then
  438.         INTEGER023 = 17
  439.         INTEGER020 = ReadLine(STRING037, 16)
  440.         For INTEGER022 = 1 To INTEGER020
  441.             If (ReadLine(STRING037, INTEGER023) == String(CurConf())) Then
  442.                 Inc INTEGER023
  443.                 INTEGER021 = ReadLine(STRING037, INTEGER023)
  444.                 Inc INTEGER023
  445.                 STRING038 = ReadLine(STRING037, INTEGER023)
  446.                 Inc INTEGER023
  447.                 If (STRING002 < 3) Then
  448.                     INTEGER024 = 4
  449.                     Goto LABEL012
  450.                 Endif
  451.                 If (STRING002 > 12) Then
  452.                     INTEGER024 = 0
  453.                     Goto LABEL012
  454.                 Endif
  455.                 INTEGER024 = 4
  456.                 :LABEL012
  457.                 If (STRING002 + INTEGER005 == INTEGER021) Then
  458.                     AnsiPos 8, STRING002 + 2 + INTEGER024
  459.                     Print "@X0B╔@X03═@X08════════════@X03═@X0B═@X03═@X08══════════════@X03═@X0B╗"
  460.                     AnsiPos 8, STRING002 + 3 + INTEGER024
  461.                     Print "@X03║                               @X03║"
  462.                     AnsiPos 8, STRING002 + 4 + INTEGER024
  463.                     Print "@X0B╚@X03═@X08════════════@X03═@X0B═@X03═@X08══════════════@X03═@X0B╝"
  464.                     AnsiPos 10, STRING002 + 3 + INTEGER024
  465.                     InputStr "@X0EPaSSWoRD@X0B:@X0D", STRING039, 3, 16, Mask_Ascii(), 1 + 2 + 8
  466.                     If (STRING039 <> Upper(STRING038)) INTEGER007 = 1
  467.                     Break
  468.                 Endif
  469.                 Continue
  470.             Endif
  471.             INTEGER023 = INTEGER023 + 3
  472.         Next
  473.     Endif
  474.  
  475.     EndProc
  476.  
  477.  
  478. ;------------------------------------------------------------------------------
  479. ;
  480. ; Usage report (before postprocessing)
  481. ;
  482. ; ■ Statements used :
  483. ;
  484. ;    2       End
  485. ;    2       Cls
  486. ;    1       Color 
  487. ;    81      Goto 
  488. ;    105     Let 
  489. ;    19      Print 
  490. ;    49      If 
  491. ;    3       FOpen 
  492. ;    4       FClose 
  493. ;    1       FGet 
  494. ;    1       Delete 
  495. ;    1       InputStr 
  496. ;    6       Inc 
  497. ;    1       Shell 
  498. ;    3       Dir 
  499. ;    20      AnsiPos 
  500. ;    1       Backup 
  501. ;    4       FSeek 
  502. ;    4       FRead 
  503. ;    1       Copy 
  504. ;    1       Flag 
  505. ;    6       EndProc
  506. ;
  507. ;
  508. ; ■ Functions used :
  509. ;
  510. ;    5       *
  511. ;    6       /
  512. ;    175     +
  513. ;    10      -
  514. ;    20      ==
  515. ;    3       <>
  516. ;    10      <
  517. ;    3       <=
  518. ;    5       >
  519. ;    7       >=
  520. ;    39      !
  521. ;    6       &&
  522. ;    3       ||
  523. ;    2       Len(
  524. ;    2       Upper()
  525. ;    1       Mid()
  526. ;    11      Left()
  527. ;    2       Right()
  528. ;    5       Ferr()
  529. ;    2       Chr()
  530. ;    2       Time()
  531. ;    1       Inkey()
  532. ;    19      String()
  533. ;    1       Mask_Ascii()
  534. ;    8       CurConf()
  535. ;    3       PCBDat()
  536. ;    3       PPEPath()
  537. ;    5       PcbNode()
  538. ;    22      ReadLine()
  539. ;    1       CurSec()
  540. ;    1       GetToken()
  541. ;    4       Exist()
  542. ;    2       PPEName()
  543. ;    5       TempPath()
  544. ;    2       ScrText()
  545. ;
  546. ;------------------------------------------------------------------------------
  547. ;
  548. ; Analysis flags : Sfd
  549. ;
  550. ; S - Shell to DOS ■ 5
  551. ;     This may be normal if the PPE need to execute an external command,
  552. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  553. ;     or usefull (sorting, maintenance,...). Check!
  554. ;     ■ Search for : SHELL
  555. ;
  556. ; f - Flag files for download ■ 3
  557. ;     This may be normal if a PPE needs to send some files, but since
  558. ;     this statement allows flagging of any file on the hard disk, you
  559. ;     have to be carefull. Check!
  560. ;     ■ Search for : FLAG
  561. ;
  562. ; d - Access PCBOARD.DAT ■ 2
  563. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  564. ;     for many PPE so they can find various informations on the system
  565. ;     (system paths, max number of lines in messages, ...) but it may also
  566. ;     be a way to gather vital informations.
  567. ;     ■ Search for : PCBDAT()
  568. ;
  569. ;------------------------------------------------------------------------------
  570. ;
  571. ; Postprocessing report
  572. ;
  573. ;    3       For/Next
  574. ;    1       While/EndWhile
  575. ;    33      If/Then or If/Then/Else
  576. ;    0       Select Case
  577. ;
  578. ;------------------------------------------------------------------------------
  579. ;                 AEGiS Corp - Break the routines, code against the machines!
  580. ;------------------------------------------------------------------------------
  581.